home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #24 (Sep 87) / fortran source / reset stuff / reset.asm next >
Assembly Source File  |  1987-08-09  |  337b  |  18 lines
  1. ; reset random seed
  2.  
  3.     include quickequ.d
  4.     include traps.d
  5.     include sysequx.d
  6.     
  7.     xdef     start
  8.     
  9. start:    
  10.     clr.l    -(A7)            ;clear result
  11.     _TickCount            ;get tickcount
  12.     clr.l    D2            ;clear D2
  13.     move.l    (A7)+,D2        ;pop off result
  14.     movea.l    (currentA5),A4        ;get A5
  15.     movea.l    GrafGlobals(A4), A3    ;get qd globals
  16.     move.l    D2, randSeed(A3)    ;update seed
  17.     rts
  18.